PartsProcurementModelDriver <- function()
  
  # This is the driving function for the Aegis SM3 Parts Procurement Model.
  # The goal is to 
  #
  # Written by: Sean Gonzalez - WILLCOR, Inc. - September, 2012
  #_____________________________________________________________

# Start by loading all the initial information and data you need.
loadParams()
loadRules()
load??

#_____________________________________________________________________
# Create the force graph
ParentIdx <- ID_PartsParents(PartTree)

#_____________________________________________________________________
# Second, for the set of parts, determine the individual missile probabilities
# then collect them into NcK probability sets.
PartNcKFailDist()

# Third, using the recert schedule consolidate those probabilities 
# into a parts demand per year
PartsDemandPerYear()

# Fourth, feed that yearly demand into a procurement function
PartsDemand2Supply()

# Determine the cost from that supply decision


# Map the Risk from the Supply vs. Demand

# Display as your favorite summary chart and Decisions Made / Actions to Take chart.